home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Toolbox / Visual Basic Toolbox (P.I.E.)(1996).ISO / mail / mailx6 / _setup.1 / ocxpass.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1996-01-24  |  3.2 KB  |  103 lines
  1. VERSION 4.00
  2. Begin VB.Form OcxPassword 
  3.    BorderStyle     =   3  'Fixed Dialog
  4.    Caption         =   "Change Password"
  5.    ClientHeight    =   1935
  6.    ClientLeft      =   2100
  7.    ClientTop       =   5265
  8.    ClientWidth     =   4845
  9.    Height          =   2310
  10.    Left            =   2055
  11.    LinkTopic       =   "Form2"
  12.    MaxButton       =   0   'False
  13.    MinButton       =   0   'False
  14.    ScaleHeight     =   1935
  15.    ScaleWidth      =   4845
  16.    ShowInTaskbar   =   0   'False
  17.    Top             =   4935
  18.    Width           =   4935
  19.    Begin VB.CommandButton Command2 
  20.       Caption         =   "&Cancel"
  21.       Height          =   375
  22.       Left            =   2640
  23.       TabIndex        =   6
  24.       Top             =   1440
  25.       Width           =   1335
  26.    End
  27.    Begin VB.CommandButton Command1 
  28.       Caption         =   "&Proceed"
  29.       Default         =   -1  'True
  30.       Height          =   375
  31.       Left            =   840
  32.       TabIndex        =   5
  33.       Top             =   1440
  34.       Width           =   1335
  35.    End
  36.    Begin VB.Frame Frame1 
  37.       Caption         =   "Passwords:"
  38.       Height          =   1215
  39.       Left            =   120
  40.       TabIndex        =   0
  41.       Top             =   120
  42.       Width           =   4575
  43.       Begin VB.TextBox szPass2 
  44.          Height          =   285
  45.          Left            =   1560
  46.          PasswordChar    =   "*"
  47.          TabIndex        =   4
  48.          Top             =   720
  49.          Width           =   2655
  50.       End
  51.       Begin VB.TextBox szPass1 
  52.          Height          =   285
  53.          Left            =   1560
  54.          PasswordChar    =   "*"
  55.          TabIndex        =   3
  56.          Top             =   360
  57.          Width           =   2655
  58.       End
  59.       Begin VB.Label Label2 
  60.          Caption         =   "Confim Password:"
  61.          Height          =   255
  62.          Left            =   240
  63.          TabIndex        =   2
  64.          Top             =   720
  65.          Width           =   1455
  66.       End
  67.       Begin VB.Label Label1 
  68.          Caption         =   "New Password:"
  69.          Height          =   255
  70.          Left            =   240
  71.          TabIndex        =   1
  72.          Top             =   360
  73.          Width           =   1215
  74.       End
  75.    End
  76. Attribute VB_Name = "OcxPassword"
  77. Attribute VB_Creatable = False
  78. Attribute VB_Exposed = False
  79. Private Sub Command1_Click()
  80.     If szPass1.Text = szPass2.Text Then
  81.         If szPass1.Text = "" Then
  82.             MsgBox "You can't set current Password", 0, "Change Password"
  83.         Else
  84.             OcxMainForm.MSess1.ChangePassword = szPass1.Text
  85.             If OcxMainForm.MSess1.ErrorNum = 0 Then
  86.                 MsgBox "Password Changed!!!", 64, "Mail eXtension"
  87.                 Unload Me
  88.             Else
  89.                 If MsgBox("Unable to Set Password. TryAgain?", 68, "Change Password") <> 6 Then
  90.                     Unload Me
  91.                 End If
  92.             End If
  93.         End If
  94.     Else
  95.         If MsgBox("Incorrect Password. TryAgain?", 68, "Change Password") <> 6 Then
  96.             Unload Me
  97.         End If
  98.     End If
  99. End Sub
  100. Private Sub Command2_Click()
  101.     Unload Me
  102. End Sub
  103.